run <obey$dir>.!boot

run <FTPc$dir>.resources.resfind FTPc

RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions

RMEnsure FilterManager 0.00 RMLoad System:modules.FilterMgr
RMEnsure FilterManager 0.08 Error You Need filter manager 0.08 or later

RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17  RMLoad System:modules.BorderUtil

| 32 bit compatible SharedCLibrary modules (required for 32bit compatible version)
RMEnsure UtilityModule  3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule  3.70 RMEnsure CallASWI 0.02 Error You need CallASWI 0.02 or later to run !FTPc
RMEnsure FPEmulator     4.03 Rmload System:Modules.FPEmulator
RMEnsure FPEmulator     4.03 Error You need FPEMulator 4.03 or later to run !FTPc
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.clib
RMEnsure SharedCLibrary 5.34 Error You need SharedCLibrary 5.34 or later to run !FTPc
| End 32bit compatible SharedCLibrary modules

RMEnsure Toolbox    0.00  RMLoad System:modules.toolbox.toolbox
RMEnsure Toolbox    1.36  Error You need toolbox 1.36 or later to run !FTPc
RMEnsure Window     0.00  RMLoad System:modules.toolbox.window
RMEnsure Window     1.31  Error You need window 1.31 or later to run !FTPc
RMEnsure Menu       0.00  RMLoad System:modules.toolbox.menu
RMEnsure Menu       0.24  Error You need menu 0.24 or later to run !FTPc
RMEnsure Iconbar    0.00  RMLoad System:modules.toolbox.iconbar
RMEnsure Iconbar    1.13  Error You need iconbar 1.13 or later to run !FTPc
RMEnsure ProgInfo   0.00  RMLoad System:modules.toolbox.proginfo
RMEnsure ProgInfo   0.05  Error You need proginfo 0.05 or later to run !FTPc
RMEnsure SaveAs     0.00  RMLoad System:modules.toolbox.SaveAs
RMEnsure SaveAs     0.05  Error You need SaveAs 0.05 or later to run !FTPc



set FTPc$temp 0
If "<InetDBase$Path>" <> "" then if "<Inet$MimeMappings>" = "" then set FTPc$temp 1
If "<FTPc$temp>" = "1"       then <FTPc$dir>.IfThere InetDBase:Mimemap then set FTPc$temp 2
if "<FTPc$temp>" = "2"       then Set Inet$MimeMappings InetDBase:Mimemap

set FTPc$temp 0
RMEnsure MimeMap 0.05 set FTPc$temp 1
if "<FTPc$temp>" = "1" then if "<Inet$MimeMappings>" <> "" then set FTPc$temp 2
if "<FTPc$temp>" = "2" then <FTPc$dir>.IfThere System:Modules.Network.MimeMap Then set FTPc$temp 3
if "<FTPc$temp>" = "3" then RMLoad System:Modules.Network.MimeMap

unset FTPc$temp

wimpslot -min 320k -max 320k
|run <FTPc$dir>.!runimage %*0 2> <FTPc$dir>.log
|run <FTPc$dir>.!runimage %*0 2> Pipe:$.FTPc.log
run <FTPc$dir>.!runimage %*0
